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subroutines 

= and bit string 

t - perform ool bif on bits 
- or bit strin 


0 4 t = not Dit str ng 


~~ 
LOL LE LE LLP LP LL es 


a te 
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bit - move b fe’ bit 
it = concatenate bi ote ing 
it = compare bit s 

xbit - index built- us 


"Temction for bit 
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dent /1-00 ; Edit 5$81003 


—MARRBRAARARARAAAALASAAAALALAALAELAASES SELES ASE RSSS SESE LARA R AREER SEES REEL EAS SO 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


04-00 Page 
BIT.MAR;1 


s* on 
:* a 
:* * 
so ¥ 
*® ® 
:* * 
*® ® 
‘* * 
ea R oy 
se RSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
:* TRANSFERRED. " 
* 7 
;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
;* CORPORATION. * 
*® *® 
:* * 
** ® 
** * 
** ® 
**® * 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR _ RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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; facility: 
VAX/VMS PL1 runtime Library. 
; abstract: 
Runtime routines to manipulate bits. 
author: R. Heinen 15-dec-1978 


Modifications: 


1-002 Bill Matthews 29-September-1982 
Invoke macros $defdat and rtshare instead of $defopr and share. 
1-003 Dave Blickstein 19-June-1984 
PLISINGEXBIT was tet ting to match certain substrings larger 
than 32 bits. It looking at aqaory, Lepet ton after the search 


string because it wasn't ygdeting “bits left’’ count 
correctly. SPR: #11-6809 Test program: $68090. 
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; 
- 
5 
cf 
: 
: 
. 
. 
: 
? 
+3 
. 
: 
. 
= 
: 
7 
r 
oe 
4 
: 
. 
mi 
° 
3 ++ 
. 
Py 
y" 
e 
4 
Py 
“ 
; 
; 
Py 
: 
‘ 
: 
‘ 
; 
: 
: 
; 
Py 
. 
Py 
° 
: 
Py 
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; external definitions 
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$Sdefdat ; define data types 


5 

° local data 
¢ ; 

4 


AOAC 


00 


rtshare 
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r = 
common subroutines 6-SEP-19 PLIRTL.SRCIJPLIBIT.MAR;1 
66 m -sbttl common subroutines 
get_op1_32bits - get next 32 bit field 


COOooo 
oooo 


functional description: 
This subroutine returns the next 32 bit field from a bit descriptor. 


e 
0 ; 
3 rt 
8 3; The bit descriptors are updated to address then next field, 
4 fe : If the field is empty then a zero is returned. 
00 £6 ; inputs: 
8 as 
0 4 3 é = size remaining in the field 
00 79 ; r3 = base address of the field 
000 80 ; r4 = offset to the field 
000 81 ; 
000 Ht 3 outputs: 
000 83 ; 
000 ge : r0 = value 
0000 33 r2 = size remaining in the field 
8000 86 ; r3 = base address of the field 
000 87 ; r4 = offset to field 
0000 88 ;-- 
0000 89 get_op1_32bits: 
50 ¢0 dO 8308 90 movl #32,r0 3 assume 32 bit return 
52 ? D1 000 91 cmpl r0,r2 3 enough to return 32? 
03 15 0006 3¢ bleq 108 : if leq then yes 
50 52 00 sit 9 mov r2,r0 3 return remainder 
52 50 C2 0008 94 10$ subl rp ere 3 remove taken bits 
50 63 29 54 sO Oo OE 95 extzv r4,r0,(r3),r0 ; get value 
5 04 ¢O 001 96 addl 3 3; point to next field *** don't access *** 
05 0016 97 rsb 3; return 


1-1 
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1 9 ;+4 
17 ! : get_op2_32bits - get next 32 bit field 
Vv ¢ ; functional description: 
17 104 : This subroutine returns the next 32 bit field froma bit descriptor. 
17 105 ; The bit descriptors are updated to address then next field. 
\f ! $ : If the field is empty then a zero is returned. 
7 198 t inputs: 
17 110 : r5 = size remaining in the field 
17 #11; rg = base address of the field 
\f 11 3 r? = offset to field 
BI Hg | ovens: 
017 116 : r0 = value 
olf 86117 3 r5 = size remaining in the field 
017 118; r6 = base address of the field 
gait 13 r r? = offset to the field 
0017 13 get_op2_32bits: 

50 $ D0 0017 #1 ¢ movl #32,r0 3; assume 32 bit return 
55 0 Di OO1A 1 cmpl r0,r5 i enough to return 32? 
03 15 001D 124 bleq 108 : if leq then yes 

50 5 pO OOF 125 movl r5,r0 3; return remainder 
55 50 C2 Base 126 10$: subl r0,°5 3 remove taken bits 
50 66 50 57 EF 3 127 extzv r7,r0,(r6),r0 3; get value 
56 04 CO QO2A 128 addl #4,r6 3; point to next field *** don't access *** 
05 002D 129 rsb 3 return 
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common subroutines SEP=1984 PLIRTL.S REIP LIBIT.MAR;1 
E 1 i++ 
; ! gi 3 set_opnd_1 - set up operand one 
: 4 : functional description: 
; } § ; This routine gathers the first operand data into registers r2-r4 
: : 3 inputs: 
8 ; 129 ; common stack frame 
; 128 : outputs: 
E 144 : [ = size of operand 1 
€ 145 ; r3 = address of the operand 
09 ; 106 : r4 = offset to field 
—E 148 Set_opnd.1: 
53 04 AC 00 8 3 149 mov 4(ap),r3 : get address of source 1 
52 08 AC DO 00 150 movl 8(ap).r2 ; Tetch dope address 
54 D4 ite 151 clrl r4 ; 3; assume not bit 
oc 8 B1 00 136 cmpw (r2)+,#dat_k_bit ; bit type? 
0 12 itd 15 bneq 10$ : if neq then no 
33 6 7D 003D 154 movq (r3),r3 3; load address and offset 
: & & opee 155 10$: movzwl (r2),r2 3 get size 
05 004 156 rsb 
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44 | see 
rf } ¥ ; set lopnd_2 = set up operand two 
ri 16 ; functional description: 
rr 188 ; This routine gathers the second operand data into registers r5-r7 
44 188 ; inputs: 
re 189 ; common stack frame 
ote 189 : outputs: 
44 159 : r5 = size of operand 2 
044 76 3 rg = address of the operand 
Ree V7 3 = offset to field 
044 175 Set_opnd_2: 
56 OC AC DO 0044 176 movl 12(ap).r 3 get address 
55 10 ac D0 0048 £17 movl 16(ap),r : Tetch dope address 
5 D4 004C 178 clrl r7 3 assume not 
oc 85 61 OO4E 17 cmpw (r5)+,#dat_k_bit ; bit type? 
03 12 0051 180 bneq 10$ : if neq then no 
26 $8 7D 0053 181 movq (rg) org ; load address and offset 
5 6 és 8238 1 ¢ 10$: movzwl (r5),r 3 get size 
005 1 rsb 
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common subroutines -SEP-1984 
A 185 ;4¢ 
: ' § : set_result = setup result descriptors 
A 8 : functional descriptor: 
ore 0 : This routine gatculates the size of the result field based on the 
A 191; sizes of the 
r 136 3; The offset returned is always zero. 
3A 194 : inputs: 
sh 138 : rl = address of the result string 
a : r2 = size of source one 
Bea 138 : r5 = size of source two 
pe, + : outputs: 
003A 8 : ri,r2,r3,74,r5,r6,r7 are saved. 
HEN 04 : r8 = size of output 
Ben 05 : r9 = offset (0) 
OSA 66 Set_result: 
58 52 DO OOS5SA 08 vl rger8 3 assume source 1 dictates size 
oe D1 005D 09 aaek r2,r5 3; actually true? 
4 14 006 10 bgtr 10$ ; if gtr then true 
58 DO 006 11 movl r5,r8 ; if not then source 2 does 
59 28 8 3 9¢3 \¢ 10$: sett: #1,r8,r9 : find the last byte boundary 
¢c Pas 
61 08 59 OO FO 006C 14 insv #0,°9,48,(r1) ; clear the byt 
59 04 0071 15 clrl r9 : initialize yileet 
05 0073 16 rsb 


SS . ’ 


I 10 
PLISBIT = pli runtime bit manipulation subroutin 16-SEP-1984 :09:24 VAX/VMS Macro v04-00 Page 
thos common subroutines A o-SEp-19 4 99:93:85 PLIRTL.SRCJPLIBIT.MAR; 1 . d, 


74 18 p++ 
i 19 ; put_bits = output bits to result 
iS ? : functional description: 
74 : : This routine inserts a value in the result string and then updates 
74 4 ; the result string pointers. If the result is filled then a ret is done 
Boe 5 ; to complete the operation. 
074 5 : inputs: 
74 § : r0 = value to insert | 
74 0; rl = address of the result | 
074 13 r8 = size remaining 
Or ¢ : r9 = simple offset value | 
bee : > outputs: | 
0974 ‘ : ri,r8 are updated 
007% 8 put_bits | 
50 DD 0074 9 pushl 0 3 save value to insert 
50 g DO 0076 40 movl a 2509 3; assume 32 bit insert 
20 D1 0079 41 cmpl 8,43 3; actually 32 bits left? 
9 14 007¢ 4g bgtr 108 : if gtr then yes 
50 8 DO OO7E 4 mov l r8,r0 3; set remainder size 
61 50 59 ®8E& FO Bae) 44 108: insy (sp)+,r9,r0,(r1) ; insert value 
51 04 CO 0086 45 addl #4,r) ; address next field 
58 50 0089 46 subl r0,r8 3; remove stored size 
01 12 008C 47 bneq 20$ ; if neq then more to go 
04 OO08E 48 ret 3 operation done 
05 O08F 49 208: rsb 3 return to processor 
| 
} 
| 


Ooo 
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t SEP=1984 

“00 -sbttl pliSandbit - and bit string 
: pli$andbit - and two bit strings 

; functional description: 

; This routine performs a logical and operation on two bit strings. 
; inputs: 


rl = address to return string 
( the size is always max(length(sourcel),length(source2)) ) 


O(ap) = 4 

4(ap) = address of source 1 

8(ap) = address of the dope for source 1 
12(ap) = address of source 2 

16(ap) = address of the dope for source 2 


; If the type of the operand is bit then the address is the address of 
; a descriptor having the base address in the first longword and the offset 


; in the second. 


; outputs: 


ONOULSWwN— 


result string is filled in 
entry pliS$andbit,*m<r2,r3,r4,r5,r6.r7,r8,r9,r10> 


bsbw set_opnd_1 ; setup operands 
bsbw set_opnd_2 : 


bsbw set_result 3 
10$: bsbw get_op!_32bits ; 
mcoml fr0,r ; save value complemented 
bsbw get .ope_Sebits ; 
bicl2 r10,r0 3 compute value 
bsbw put.bits ; insert into result 
brb 0$ 3; continue 


r 
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AC 290 .sbttl pli$boolbit = perform bool bif on bits | 
at 36 ; pli$boolbit - perform bool bif on bit strings | 
at 34 : functionla description: | 
ve 39 ; This routine performs the bool bif operation on three bit strings. | 
AC 298: 
3 $3 3; The operation is as follows: 
. 0 ; bool (x,y,z) 
OAC 08 : result(i) = 2(1) if xi) = 8 and y(i) = 0 
OAC 4; z(¢) if x(i) = 0 and y(i) = 1 
OAC 05 ; z(3) if x(i) = 1 and y(i) = 0 
3 8S ; z(4) if xi) = 1 and y(i) = 1 
BE | ne 
OOAC 10 ; ri = address to return string 
Baas i} : ( the size is always max(length(sourcel),length(source2)) ) 
OOAC ig : Olap) = 6 
QOAC 14; 4(ap) = address of source 1 
OOAC 15 ; 8(ap) = address of the dope for source 1 
OOAC 16; 12(ap) = address of source 2 
OOAC 7 3: 16(ap) = address of the dope for source 2 
QOAC 18; $7 (eo) = address of source 
Boat 4s : 4(ap) = address of the dope for source 3 
OAC 1 : outputs: 
OQOAC ¢ : 
DoAc z 3 none 
OFFC OOAC a2 sentry pliSboolbit,*mer2,r3,r4,r5,r6,r7.68.r9.c10,011> 
30 OOAE $ bsbw set_opnd_1 : load operand 1 
0 0081 bsbw set_opnd 2 ; load operand 2 
DO 0084 8 mov l 65:58 r8 ; address function string dope 
fF 0B8 9 extzv #0,# 5(r8) 0 $ get size up to 4 bits 
'3 008 0 beql 5$ 3: 1f eql then set to 4 
D1 3 1 cmpl r0,#4 3 
1 ¢ : blequ 10% : 
i) C3 5$: mov | 4,r0 $ 
D C 410$: movil 20¢ap).r10 : address string 
D4 cc 5 clrl ri 3 set zero offset 
81 ace § cmpw (r8) ,@dat_k_bit 3; bit data type? 
12 00D bneq 1 3; if neq then no 
70 D3 3 movg (r10 3; get address and offset 
ff 06 15$: extzv ril, 6° (F190), r10 3; get up to : bits 
0 0B 40 bsbw set_result 3 setup result 
01 of 41 capl r107#6 $ is a xor? 
13 : 4g beqi 1008 : if eql then yes 
‘ 44 : beol operation Loop 
30 E 46 20: bstw get_op1_32bits ; get op! field 
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bootbi t - perform \oo. bit on -SEP-1 PLIRTL RCIP PLIBIT.MAR;1 (1) 
58 0 E 47 mos 3; save value 
FF 2B 88 £§ rh: kstw get, cin qebjts ; get ope field 
BB EC 4 pushr r4,r5> 3; Save regs 
54 D E 0 movl r0,r4 3; save value 
e / 1 cret r 3 oat —_— ‘ 
clr r 3 setup loop coun 
52 28 9} 4 F j 30$: extzv  3,#1,r11,r2 3 get Oe 
é 2 1 8 FA 4 ashl Wl .ceere : shift t yp 
55 4 4 3 sC#F ore 55 extzv. -°3,41,°4,r5 ; get ope bit 
5 g c8 18 2$ isl r2.r5 ; merge bits 
55 SA 1 EF 0106 5 extzv  -r5,#1,710,°5 i; get the op? bit ,yelue 
50. = («01 : 5 Fo 108 28 insv r5,r3,41,r0 : accususate reayls 
E1 | eee 11 aobleq # 103.308 3 continue for bits 
HS BA 114 60 opr #*m<r2,r3.r4,r5> 3; restore bits 
FB 30 0116 36) Bsbw t bits : 
C81 O19 $68 bro» OS 5 continue 
O18 64 : simple xor function 
FEE? 30 0118 366 100$: bsbw get_opl_32bits ; get op! field 
5 D 011 67 ushl FO 3 save value 
FEF4 0 01 68 sbw gts op2_32bits 3 get ope field 
50 8E C 01 69 xorl J+,r0 ; perform operation 
FF4B 0 0126 70 bsbw put bits 3; insert result field 
FOO «11 3E4 4] br 00$ 3 continue 
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pliSorbit - or bit str Rng met 4: 9% ‘69 PLIRTL.S RCIP LIBIT.MAR;1 . (1) 
! :  , : esbttl pli$orbit - or bit string 
B 6 ¥ plisorbit - or two b ¢ strings 
B 28 functional description: 
} ; 9 : This routine performs a logical or operation on two bit strings. 
128 : i ts: 
128 : é sss 
128 4; ri = address to return string 
} 4 > 3 ( the size is always max(length(sourcel),length(source2)) ) 
128 > : O(ap) = 4 
0128 8 ; 4(ap) = address of source 1 
81 8 9; 8(ap) = address of the dope for source 1 
128 90 ; 12(ap) = address of source 2 
4 : 4 ; 16(ap) = address of the dope for source 2 
0128 3 : outputs: 
0128 94; 
4 ; 32 : result string is filled in 
O7FC 4 : a ‘ entry pliSorbit,*m<r2,r3,r4,r5,r6,r7.r8,r9,r10> 
FEFE 30 012D 99 bsbw set_opnd_1 3; setup operands 
FF11 0 01 9 400 bsbw set_opnd_2 3 
FF24 0 01 401 bsbw set_ resuls 3 
FEC? 0 0136 ret 10$: bsbw ge* 1_32bits : 
5A 50 bf bie 40 mov l FH i; save value 
FED8 0 013C 404 bsbw cet. op2_32bits : 
50 SA gf 013F 405 bisl2 ri0cr 3 compute value 
FF OF 0 Bite 406 bsbw put. “bits : insert into result 
EF 11° 014 407 brb 3; continue 


SS 
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thos altsnorbit - not bit M pa bd pate 7 4: % ‘69 PLIRTL.S RCNP PLIBIT.MAR;1 2 (1) 
\ef a on -sbttl pli$notbit - not bit string 
142 ait : pliSnotbit = not a bit string 
142 ‘i$ : functional description: 
\oe AF : This routine performs a Logical not operation on a bit string. 
142 ‘17 ; inputs: 
147 218 : rl = address to return string 
ape 4 ? 9 : ( the size is always max Length(sourcel), Length(source2)) ) 
0147 4 : : Olap) = 2 
0147 423; 4(ap) = address of source 1 
tpt ; : 3 8(ap) = address of the dope for source 1 
ape 4 63 : outputs: 
bie) ? 3 ; result string is filled in 
O3FC Bee $6 ; sentry pli$notbit,*m<r2,r3,r4,r5,r6,r7,r8,r9> 
FE 30 0149 $36 bsbw set_opnd_1 3 setup cperands 
4 014C 43 clrl r5 ; set no source two 
30 O14E 434 bsbw set_result 3 
9 0151 435 10S: bsbw get_ 207 |. bits : 
12 0154 436 mcomlL fr ; set value complemented 
30 0157 437 bsbw put bits ; insert into result 
11 OSA 438 brb 0$ 3 continue 
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bos plismovbit = = move bit Strin ng aoe tf 9: 35 PLIRTL.S RCIP LIBIT.MAR;1 . 
15C 440 -sbttl pliSmovbit - move bit string 
15€ «461 344 
1 é re ; pliSmovbit - move a bit string 
13 tte ; functional description: 
13 +78 3; This routine performs a move operation on a bit string. 
15C 448 ; inputs: 
15C 449; 
15C 450; ri = address to return string - if one arg set 
Stat $2] 3 ( the size is always max(length(sourcel),length(source2)) ) 
015C 138 ; O(ap) = 2 or 4 
015C 454 ; 4(ap) = sddress of source 1 
015C 455; 8(ap) = address of the dope for source 1 
015C 456; 12(ap) = address of the target if not “bit aligned 
015C 457 ; 16(ap) = address of the target dope 
015C 466458 ; 
015C 459 ; outputs: 
015C 460 ; 
015C «461 ; result string is filled in 
015C re j-- 
OOFC O15C 46 entry pli$movbit,*m<r2,r3,r4,r5,r6,r7> 
FECD 30 O15E 464 bsbw set_opnd_1 > setup operands 
02 6C 01 0161 465 cmpl (ap) ,#2 ~ 3 bit aligned target? 
OA 12 0164 466 bneq 5$ 3; if neq then no 
56 51 DO 0166 467 movl ri,r6 3 oa up operand address 
57 04 0169 468 clrl r7 : set no offset 
55 52 DO 0168 469 movl re r5 3; copy op! size 
09 11 O16E 470 brb $ > continue 
FED! 30 0170 471 5$: bsbw set.o a*: 3 
10 BC OC 861 0173 Ae: 10$: cmpw dat_ net, a16(ap) 3 bit aligned target? 
0D 13 0177 47 beql it ie : if eql then no 
51 55 O07 C1 0179 474 15$ addl3—s #7, r5,r1 : 
51° 51 FD 8F 78 O17D 475 ashl $ortort : cale as byte displ 
FF A641 94 0182 476 clrb -1(r6)6r1) : insert 0 in Last byte 
FE77 30 0186 477 208: bsbw 955-08 - 32bits H 
51 ¢0 DO 0189 478 mov 2,¢ 3 assume max insert 
55 .: tts 479 cmpl ri,r5 3 roe enough? 
03 15 O18F 480 bleq 25$ : if leq then yes 
51 55 p00 0191 481 mov r5,r1 3 set max atee 
a6 51 SF FO FO O19 $88 25$: insv 0. r7, ri,(r6) ; insert target 
26 os C 8132 rt addl o rere 3 point to next field 
5 , tare 19C 484 subl 3 remove moved size 
ES 12 Q19F 485 bneq 50s" ; if neq then not done yet 
04 Q1A1 486 ret ; done 
O1A2 = 487 
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PLISBIT L1 runt 
bos pl ise atbit = concatenate bit string 6-SEP=-1984 PLIRTL.S RCIP LIBIT.MAR;1 
1A 4 -sbttl pliScatbit - concatenate bit string 
1A 490 ;++ 
1. $3) ; pliScatbit - concatenate two bit strings 
i. rh > functional description: 
i. tee : This routine performs a concatenate operation on two bit strings. 
oA 630 : inputs: 
1A 499 ; ri = address to return string 
aA 301 ; ( the size is always max(length(sourcel),length(source2)) ) 
O1A 0¢ : O(ap) = 4 
O1A 503 ; 4(ap) = address of source 1 
O1A 504 ; 8(ap) = address of the dope for source 1 
O1A 22 s 12(ap) = address of source 2 
aA 209 3 16(ap) = address of the dope for source 2 
BIAS 206 ; outputs: 
O12 310 : result string is filled in 
O7FC Bia 218 . entry pli$catbit,*m<r2,r3,r4,r5,r6,r7,r8,r9,r10> 
FE87 30 O1A4 514 bsbw set_opnd_1 3; set up operands 
FE9SA $ Q1A7 = =—515 bsbw set_opnd_2 : 
FEAD 30 OQIAA 516 bsbw  set_result ; ; 
5A 52 DO OAD 517 108: mov r2,r10 ; copy size of - remaining 
15 13 0180 518 beql 208 : if eql then ° done 
20 36 D1 0182 519 cmpl r2,#32 3: are there 32 bits left in source? 
03 15 0185 520 bleq 15 : if leq «Ry no 
5A 20 Be 01B7 3521 mov l #32,r10 3 assume insert of just what's left 
FE43 Q O1BA 323 15$: bsbw get_op1_32bits : 
61 SA 59 50 FO Q1BD 5 insv r0,r9,rT0,(r1) ; insert it 
59 «SA CO pits 524 addl r16,r9 ; adjust target offset 
c6 11 Bite é 2 : brb 3 continue till done with op1 
pice : > move op2 
5A 55 00 01¢7 529 20s: mov l r5,r10 3: copy size of op remaining 
15 13 QICA 2 0 beql 30$ : if eql then o e 
20 55 obi OCC 1 cmpl r5,#32 3 are there 32 bits left in source? 
05 15 OICF 2 ¢ bleq 23$ : if leq then no 
5A 20 00 he movl #32,r10 3 assume insert of just what's left 
FE4O §=(30 01D4 é 4 25$: bsbw get_op2_32bits ; get ss string two bits 
61 SA 59 50 £0 0107 5 insv r0,r°9,r10,(r1) : insert 
59 SA CO 01D0C 238 addl r10,79 : adjust + eae offset 
E6 11 ODF 37 brb 208 3 continue 
04 O1F1 538 30$: ret ; done 
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-00 
IT.MAR; 1 
-sbttl pliScmpbit - compare bit strings 


+ 
pli$cmpbit - compare bit strings 
functional description: 


This routine compares two bit strings and returns r0 with the proper 
condition code. 


inputs: 
O(ap) = 
4(ap) = address of source 1 
8(ap) = address of the dope for source 1 
12(ap) = address of source 2 
16(ap) = address of the dope for source 2 
outputs: 


r0 = if tested with a tst the condition codes are set 
entry pliScmpbit,“m<r2,r3,r4,r5,r6,r7,°8,r9> 
bsbw d_{ 


set_opn ; get op! 

bsbw set_opnd_2 3; get op2 

tstl re 3; 0pl exhausted? 

bneq 15$ ; if_neq then no 

tstl r5 3 op2 exhausted? 

beql 30$ : : if eql then done 

bsbw get_op2_32bits ; get an op! field 

ushl f¢ 3; save value 

sbw get op1_32bits 3: get an op field 

xorl3) (Uspy+,r0,r8 ; get difference | 

beql : 1f eql then continue. 
ffs #0,432,r8.r1 ; find the different bit 
extzv r1,#1,r0,r0 ; get answer value 

bneq o$ : if neq then op! gtr op2 
anegi #1,r0 3; set op! lss op2 

re 

clrl r0 : set eql 

ret 


ee bit wenipytation subrout in 16-SE o8e 96:0 


eusseit - et! run £7: AX/VMS Macro V04-00 
1-00 pliSindexbit - index built-in function f 6=SEr :09 CPLIRTL.SRCJPLIBIT.MAR;1 
} 1 . -sbttl pliSindexbit - index built-in function for bit 
| $ : pliS$indexbit - perform index built-in function for bit strings 
! 5 : functional description: 
1 : : This routine supports the index built-in function for bit strings. 
1 $ 3; The action is to search string2 for an occurance of string! and to return 
! i 3; the offset of the match. If no match occurs then 0 is returned. 
31 : inputs: 
1 38 ; O(ap) = 4 
1 94 ; 4(ap) = address of source 1 
1 95 ; 8(ap) = address of the dope for source 1 
1 38 § 12(ap) = address of source 
8 } a 3 16(ap) = address of the dope for source 2 
0 299 : outputs: 
6 601 : r0 = index value 
O3FC 021 $08 2 entry pliSindexbit,*m<r2,r3,r4.r5,°6,r7,r8,r9> 
FE16 $3 021 604 sbw set_opnd_1 ; setup r2,r3,r4 
Fee? 0 0218 605 bsbw set_opnd_ ; setup r5,r6,r7 
5 oe 0218 606 tstl r5 3 match string size 0? 
40 13 021D 607 beql 35$ ; if eql then done ; 
50 3 DO O21F 608 mov l #32,r0 3; get up to 32 bits of search string 
55 ° D1 (0 g 609 cmpl r0,r5 : 
so $8 00 9957 S15 Blea 198 : 
51 66 50 57 EF 022A 612 10$:  extzv_r7.r0,(r6),r1 > extract the value 
58 54 D0 O22F 61 mov l r4,r8 3 save initial offset of searcher 
59 ¢9 dD0 0 g 614 mov l #32,79 : assume 32 bit searc 
59 ; D1 8 615 15$ cmpl r2,r9 ; 32 bits left? 
0 14 8 616 bgtr 20$ :; if gtr then yes 
59 2 D0 0 3 617 movl r2.r9 3: set size to remainder 
52. 5 D1 0230 618 20$: cmpl r5,r2 3 enough search bits to match? 
1D 1A 024 619 botru 35$ ; if gtr then no - no match 
09 51 €9 024 620 bec r1,25$ ; select proper search instruction 
50 63 59 54 A 024 621 ffs r4,r9,(r3),r0 : look for field start 
6 2 024A 6 ¢ bneq 40$ : if neq then posible match found 
Q 11 4C 6 brb 30$ : else no match found 
50 63 59 4 ‘ 4 624 25$: ffc r4,r9,(r3),r0 : look for field start 
OD 33 625 bneq 408 : if neq then posible match found 
- hy ¢€ 5 626 30$: subl r9,r2 3 remove searched size 
9 13 0258 627 beql 35§ : if eql then done - no match 
54 9 C0 SA 628 addl r9,r4 : adjust offset for next field 
06 11 0250 629 brb 15$ > continue 
Be +4 ? ? 35$: chet r0 3; done = no match 
50 6 C 6¢ 6 § 40$: subl r4,r0 ; calculate skipped portion 
52 » ¢€ 6 6 subl r0,r 3 update remaining bits left count 
54 C 68 634 addl rQer 3 setup matchec offset 
Hoe Be Ge it ied i FimoteTmatchs © 
e 3 
20 5 op! 5 6 $ me r5,#32 3 onsy nateht 
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o V04-00 P 
indexbit - index built-in function f 6 8 — 


r 1 
PLIRTL.SRCJPLIBIT.MAR;1 ( 
15 bleq 75$ : if leq then do it 


: complex match 


peer #*m<r0,r2,7°3,°5,r6,r7> 
r 


ng 
7 640 
7 641 
7 o¢6 
7 64 
D 7 644 50$: stl 3; string 1 exhausted? 
1 7B 645 bneq 55$ : if neq en no 
D 70 o78 tstl r ; string 2 exhausted? 
1 7F 64 bneq $ ; if neq then no 
BA 648 po r #*m<r0> 3; restore r0 only 
1 $63 r 100$ 3; done - magsh found 
0 50 55$: bsbw get_op1_32bits 3; get next bit field 
D 8 651 usht 0 3; Save value 
0 A 026 sbw get op2_32bits ; 
D1 80 65 cmpl spy+,r0 3 match? 
13 33 654 beql : if eql then continue match 
BA 8 9 655 popr #*m<r0,r2,r3,75,r6,r7>; no match found 
06 96 656 60S: incl r4 ; update new search location 
D7? 0298 657 decl i ; adjust remaining size 
11 029A 658 brb 15$ 3 continue 
029 659; 
029C 660 ; simple match 
029C 661 ; 
ED 029C 662 75S: cmpzv. ss r4,75,(r3),r1 3 match? 
12 ost 66 bneq 6 ; if neq then continue search 
C1 O2A3 664 100$: addl3 #1,r4,r0 3; calc relitive bit 
C2 O2A7 665 subl r8,r0 3 remove initial offset 
04 O2AA 666 ret 
O2AB 667 .end 
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PLISBIT 
Symbol table 6-SEP-1984 PLIRTL RCIP LIBIT.MAR;1 ) 


The working set Limit was 900 pages. 
12088 bytes (24 pages) of virtual memory were used to buffer the intermediate c 
There were 10 pages of symbol table space bt yecense to hold 41 non-local and 45° ae symbols. 
96 source Lines were read in Pass 1, producing 31 object records in Pass 2. 

pages of virtual memory were used to define 2 macros. 


eee eee see eee tee weet emer $ 


DAT _K BIT = 0 
SRE uaHS SH gg 
PL ISANOBI 90 RG 1 
PLISBOOLBIT AC RG 1 
PLISCATBIT Ad RG 1 | 
PLISCMPBIT By if RG 1 
PLISINDEXBIT 0 Be RG 1 
PLISMOVBIT 0000 25 RG 1 
PLISNOTBIT BR8Rt3 RG 1 
PLISORBIT 000 168 RG 1 
PUT_BITS 44 GR 4 
SET“OPND_1 O00002E R 1 
SET_OPND 2 00000044 R 01 
SETIRESUCT QO00005SA R 01 

ener ec eww one enone + 

: ; _Psect synopsis H 
PSECT name Allocation PSECT No. Attributes | 
« 4S 00000000 ( 0.) 00 ¢ O.) NOPIC USR CON’ ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
-PLISCODE 000002AB ( 683.) 01 ¢ 1.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 

Guaenceneessesensensasens 
! Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization Q 00:00:00.07 00:00:00.79 
Command processing 85 os 68 4 00:00:02.43 
Pass 1 85 00:00:01.79 00:00:06.12 
synbol table sort 0 i Shs BS 00:00:00.46 
s2 112 00:00:01.21 00:00:04.75 

eB table output ‘ 00:00:00.02 BF 188 #80 «Oe 
Psect synopsis output 00:00:00.01 00:00:00.0 
Cross-reference output 0 ib $4 00:00:00.00 
Assembler run totals 294 00:00:03.70 00:00:14.59 | 


Macro library name Macros defined 
5SSDUA PLIRTL.OBJJPLIRTMAC MLB; 1 
Sitti 58: eye IBSSTARL ET.MLB;2 
TOTAcs (all libraries) 
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the Macro Run Statistics ° , patie oF: 9 83 PLIRTL.S RCIP PLIBIT.MAR;1 . (1) 


32 GETS were required to define 2 macros. 
There were no errors, warnings or information messages. 
MACRO/ENABLE=SUPPRESSION/DISABLE=TRACEBACK/LIS=LIS$:PLIBIT/OBJ=OBJ$:PLIBIT MSRC$:PLIBIT/UPDATE=(ENHS$:PLIBIT)+LIB$:PLIRTMAC/LIB 


PMENT CORPORATION = 
SAND PROPRIETARY 


